home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / NewCLI.MOD < prev    next >
Text File  |  1988-03-15  |  510b  |  20 lines
  1. MODULE NewCLI;
  2.  
  3. FROM AMIGADos IMPORT AMIGAFile, Close, Delay, Execute, Open;
  4. FROM Terminal IMPORT WriteString, WriteLn;
  5.  
  6. VAR f1, f2: AMIGAFile;
  7.     ok: BOOLEAN;
  8.  
  9. BEGIN
  10.   WriteString('NewCLI Demo'); WriteLn;
  11.   WriteString('==========='); WriteLn; WriteLn;
  12.   WriteString('Use EndCLI in new window to exit!'); WriteLn;
  13.   Delay(50);
  14.   f1:=Open("CON:300/20/320/160/Modula-2 created NewCLI", TRUE);
  15.   f2:=AMIGAFile(0);
  16.   Execute("", f1, f2, ok);
  17.   Close(f1);
  18.   WriteString('Here we are again'); WriteLn;
  19. END NewCLI.
  20.